home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD006b.dsk / HANGMAN.bas < prev    next >
BASIC Source File  |  2003-06-12  |  4KB  |  81 lines
  1. 10 D$ = "<CTRL-D>"
  2. 20  GOSUB 20000
  3. 25  PRINT D$;"BLOAD HMS"
  4. 30  PRINT D$;"RUN ARTP"
  5. 40  END 
  6. 20000  REM  SHAPE LOADER
  7. 20001  READ T,TN: POKE 233,T/256: POKE 232,T -256 * PEEK(233):TL = T +2 *TN +1:TK = 0: POKE T +1,0: POKE T,TN: GOTO 20003
  8. 20002  READ TD:TL = TL +1: POKE TL,TD: IF TD < >0  THEN 20002
  9. 20003  IF TK <TN  THEN TK = TK +1: POKE T +2 *TK +1,(TL +1 -T)/256: POKE T +2 *TK,TL +1 -T -256 * PEEK(T +2 *TK +1): GOTO 20002
  10. 20004  RETURN 
  11. 20005  DATA  16384,37
  12. 23206  DATA         41,45,45,200,36,36,36,28,63,63,23,54,54,54,44,5
  13. 23208  DATA        200,5,200,5,200,5,200,4,0 
  14. 23210  DATA        41,45,45,200,219,36,36,36,188,6,0 
  15. 23212  DATA        45,45,45,220,219,43,200,5,200,5,200,45,200,5,200 
  16. 23214  DATA        228,63,63,23,6,0 
  17. 23216  DATA        41,45,45,200,36,4,200,36,28,63,63,23,150,146,6 
  18. 23218  DATA        200,76,64,200,45,5,0 
  19. 23220  DATA        73,9,36,36,36,36,62,23,23,23,62,45,45,45,5 
  20. 23222  DATA        0 
  21. 23224  DATA        45,45,45,200,36,28,63,63,39,36,44,45,45,45,0 
  22. 23226  DATA        32,36,36,100,45,45,21,150,50,246,63,63,4,200,200 
  23. 23228  DATA        40,45,45,0 
  24. 23230  DATA        73,36,44,200,5,200,5,200,228,63,63,55,150,0 
  25. 23306  DATA         41,45,45,200,36,4,200,36,28,63,63,23,54,22,54,5
  26. 23308  DATA        200,200,40,45,45,0 
  27. 23310  DATA        41,45,45,200,36,36,36,60,63,63,23,54,150,42,200 
  28. 23312  DATA        200,200,45,45,5,0 
  29. 25022  DATA        77,73,252,219,35,77,73,252,219,35,45,45,45,252,219 
  30. 25024  DATA        35,77,73,28,223,59,200,9,45,13,0 
  31. 25026  DATA        45,45,45,200,223,27,71,77,9,252,219,71,45,45,5 
  32. 25028  DATA        200,223,27,71,77,9,252,219,7,200,45,45,45,0 
  33. 25030  DATA        9,45,45,200,223,27,7,200,36,36,12,77,9,28,63 
  34. 25032  DATA        255,0 
  35. 25034  DATA        45,45,45,200,36,36,36,28,63,63,119,54,54,54,7 
  36. 25036  DATA        0 
  37. 25038  DATA        45,45,45,4,200,200,200,200,200,200,200,63,63,63,54 
  38. 25040  DATA        54,45,245,27,54,7,0 
  39. 25042  DATA        36,36,45,229,27,36,44,45,45,45,0 
  40. 25044  DATA        9,45,45,200,223,27,7,200,77,73,60,255,27,36,100 
  41. 25046  DATA        77,9,28,63,255,0 
  42. 25048  DATA        77,73,36,36,36,36,223,219,54,54,45,45,245,219,51 
  43. 25050  DATA        62,0 
  44. 25052  DATA        41,45,45,200,200,200,200,200,200,200,24,63,63,87,9 
  45. 25054  DATA        54,54,54,7,0 
  46. 25056  DATA  41,45,200,36,36,36,13,200,63,63,159,146,146,13,0
  47. 25060  DATA        77,73,28,223,27,108,9,197,251,35,45,5,200,223,108 
  48. 25062  DATA        9,5,200,223,27,108,73,177,18,0 
  49. 25064  DATA        45,45,45,4,200,200,200,200,200,192,219,27,54,54,54 
  50. 25066  DATA        62,0 
  51. 25074  DATA        36,36,36,36,77,73,54,54,54,54,223,200,200,200,32 
  52. 25076  DATA        12,5,200,223,115,1,0 
  53. 25082  DATA        36,36,36,36,77,73,54,54,54,54,223,27,200,200,200 
  54. 25084  DATA        200,200,200,200,140,178,1,200,200,68,146,86,32,200,0 
  55. 25086  DATA        9,45,13,200,251,27,7,200,77,73,252,219,35,77,73 
  56. 25088  DATA        252,219,35,77,73,28,223,59,200,9,45,13,0 
  57. 25090  DATA        77,73,200,200,200,24,63,63,76,73,36,28,63,63,55 
  58. 25092  DATA        54,54,54,62,0 
  59. 25094  DATA        9,45,13,28,223,59,200,77,105,36,36,196,59,255,10 
  60. 25096  DATA        77,241,219,51,54,7,0 
  61. 25098  DATA        77,73,28,223,27,108,9,13,200,219,223,44,45,45,5 
  62. 25100  DATA        200,223,219,108,73,33,223,219,44,45,45,5,0 
  63. 25102  DATA        168,45,45,5,200,36,28,63,63,7,200,36,12,45,45 
  64. 25104  DATA        5,0 
  65. 25106  DATA        200,200,200,200,200,200,200,200,45,45,45,222,51,54,54 
  66. 25108  DATA        54,7,0 
  67. 25110  DATA        41,45,45,200,36,36,36,252,219,51,54,54,54,5,0 
  68. 25112  DATA        73,77,216,31,31,200,105,9,5,200,36,36,252,219,51 
  69. 25114  DATA        54,54,6,0 
  70. 25116  DATA        77,73,60,223,59,108,13,13,252,251,35,77,77,252,251 
  71. 25118  DATA        35,36,77,73,54,7,0 
  72. 25120  DATA        77,73,252,219,99,77,41,200,27,31,31,200,73,77,216 
  73. 25122  DATA        31,31,200,105,9,5,200,252,219,51,7,0 
  74. 25124  DATA        73,36,36,77,216,31,31,200,105,9,5,200,252,219,51 
  75. 25126  DATA        7,0 
  76. 25128  DATA        45,45,45,220,219,99,77,9,200,219,251,72,105,193,251 
  77. 25130  DATA        27,200,73,9,5,200,223,219,40,45,45,45,0 
  78. 27106  DATA        45,45,45,60,63,63,39,45,45,45,60,63,63,39,45 
  79. 27108  DATA        45,45,60,63,63,39,45,45,45,60,63,63,39,45,45 
  80. 27110  DATA        45,5,0 
  81. 27200  DATA       -1